home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00011.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.9 KB  |  54 lines
  1. on exitFrame
  2.   global mnv, ppl, foes, advance
  3.   if getAt(mnv, 1) > 1 then
  4.     if (the keyCode > 124) and (the memberNum of sprite getAt(ppl, 1) < 46) then
  5.       set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  6.       if the keyCode = 126 then
  7.         set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) - 17
  8.       else
  9.         set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) + 17
  10.       end if
  11.       setAt(mnv, 1, getAt(mnv, 1) - 1)
  12.     else
  13.       if (the keyCode > 122) and (the memberNum of sprite getAt(ppl, 1) < 46) then
  14.         set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  15.         if sprite(getAt(ppl, 1)).flipH = 1 then
  16.           set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) - 17
  17.         else
  18.           set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) + 17
  19.         end if
  20.         setAt(mnv, 1, getAt(mnv, 1) - 1)
  21.       else
  22.         if getAt(mnv, 1) < 20 then
  23.           set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  24.           setAt(mnv, 1, getAt(mnv, 1) - 1)
  25.         else
  26.           set the member of sprite getAt(ppl, 1) to member(1, 2)
  27.           setAt(mnv, 1, 1)
  28.         end if
  29.       end if
  30.     end if
  31.   else
  32.     if the memberNum of sprite getAt(ppl, 1) < 82 then
  33.       set the member of sprite getAt(ppl, 1) to member(1, 2)
  34.     end if
  35.   end if
  36.   if advance = 1 then
  37.     foemov(43, 44, 60, 65, 66, 13, 7, 2, 2, 1, 12, 4)
  38.     strata2(1)
  39.   else
  40.     if (advance = 2) or (advance = 3) then
  41.       foemov(76, 77, 87, 94, 95, 8, 5, 3, 3, 2, 10, 3)
  42.       foemov(103, 104, 116, 122, 123, 13, 7, 4, 4, 3, 9, 5)
  43.       strata2(3)
  44.     else
  45.       if advance = 4 then
  46.         foemov(43, 44, 60, 65, 66, 13, 7, 2, 2, 1, 12, 4)
  47.         strata2(3)
  48.       else
  49.         strata2(3)
  50.       end if
  51.     end if
  52.   end if
  53. end
  54.